home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / _GUICtrlStatusBarSetUnicode.au3 < prev    next >
Text File  |  2007-09-08  |  2KB  |  65 lines
  1. Opt("MustDeclareVars", 1)
  2.  
  3. #include <GUIConstants.au3>
  4. #Include <GuiStatusBar.au3>
  5.  
  6. Local $gui, $StatusBar1, $msg
  7. Local $a_PartsRightEdge[3] = [100, 350, -1]
  8. Local $a_PartsText[3] = ["New Text", "More Text", "Even More Text"]
  9.  
  10. ;================================================================
  11. ; Example 1 - Using AutoIt Control
  12. ;================================================================
  13. $gui = GUICreate("Status Bar Set Unicode", 500, -1, -1, -1, $WS_SIZEBOX)
  14.  
  15. $StatusBar1 = _GUICtrlStatusBarCreate($gui, $a_PartsRightEdge, $a_PartsText)
  16.  
  17. _GUICtrlStatusBarSetUnicode($StatusBar1, False)
  18. If _GUICtrlStatusBarGetUnicode($StatusBar1) Then
  19.     _GUICtrlStatusBarSetText($StatusBar1, "using Unicode characters", 1)
  20. Else
  21.     _GUICtrlStatusBarSetText($StatusBar1, "NOT using Unicode characters", 1)
  22. EndIf
  23.  
  24. GUISetState(@SW_SHOW)
  25.  
  26. While 1
  27.     $msg = GUIGetMsg()
  28.     Select
  29.         Case $msg = $GUI_EVENT_RESIZED
  30.             _GUICtrlStatusBarResize($StatusBar1)
  31.         Case $msg = $GUI_EVENT_CLOSE
  32.             ExitLoop
  33.         Case Else
  34.             ;;;;;
  35.     EndSelect
  36.     
  37. WEnd
  38. GUIDelete()
  39.  
  40. ;================================================================
  41. ; Example 2 - External Control
  42. ;================================================================
  43. Opt("WinTitleMatchMode", 4)
  44. Local $h_win = WinGetHandle("classname=SciTEWindow")
  45. Local $h_status = ControlGetHandle($h_win, "", "msctls_statusbar321")
  46. Local $s_text = _GUICtrlStatusBarGetText($h_status)
  47. Local $Unicode = _GUICtrlStatusBarGetUnicode($h_status)
  48. If $Unicode Then
  49.     _GUICtrlStatusBarSetUnicode($StatusBar1, False)
  50.     If _GUICtrlStatusBarGetUnicode($h_status) Then
  51.         _GUICtrlStatusBarSetText($h_status, "Was using Unicode characters, Not Now")
  52.     Else
  53.         _GUICtrlStatusBarSetText($h_status, "Couldn't turn off Unicode")
  54.     EndIf
  55. Else
  56.     _GUICtrlStatusBarSetUnicode($StatusBar1)
  57.     If Not _GUICtrlStatusBarGetUnicode($h_status) Then
  58.         _GUICtrlStatusBarSetText($h_status, "Was NOT using Unicode characters, Is Now")
  59.     Else
  60.         _GUICtrlStatusBarSetText($h_status, "Couldn't turn on Unicode")
  61.     EndIf
  62. EndIf
  63. Sleep(10000)
  64. _GUICtrlStatusBarSetUnicode($StatusBar1, $Unicode)
  65. _GUICtrlStatusBarSetText($h_status, $s_text)